<!--#include file="p1.asp" -->
<%
Dim File,F,qes
Easp.Upload.SavePath = "./upload"
If Easp.Upload.GetData Then
    For Each File In Easp.Upload.Files("-1")
        Set F = Easp.Upload.Save(File,0,True)
        If F.Succeed Then 
			qes=F.FileName
        End If 
    Next
End If
vas "qes",qes
if qes<>"" then
	echo replace("{'code': 0  ,'msg': '','data': {'src': '" &  Easp.GetUrl(-1) & "/dzps/upload/"& qes & "'}}","'","""")
end if
%>